﻿Public Class CTMonitorPS

Private _IdPS           As Long 
Private _Tvng           As String 
Private _FecSol         As Date 
Private _FecLiq         As Date
Private _Plazo          As Integer  
Private _Comentario     As String 
Private _MontoSol       As Decimal 
Private _MontoAct       As Decimal 
Private _Estatus        As String 
Private _FecIngresoEjec As Date 
Private _FecEjec        As Date 

Private _IdEstatus     As Integer 



Public Property IdPS() As Long
    Get
        Return _IdPS
    End Get
    Set(ByVal value As Long)
        _IdPS = value
    End Set
End Property

Public Property Tvng() As String
    Get
        Return _Tvng 
    End Get
    Set(ByVal value As String)
        _Tvng = value
    End Set
End Property

Public Property FecSol() As date
    Get
        Return _FecSol 
    End Get
    Set(ByVal value As date)
        _FecSol = value
    End Set
End Property

Public Property FecLiq() As date
    Get
        Return _FecLiq 
    End Get
    Set(ByVal value As date)
        _FecLiq = value
    End Set
End Property

Public Property Plazo() As Integer
    Get
        Return _Plazo 
    End Get
    Set(ByVal value As integer)
        _Plazo = value
    End Set
End Property

Public Property Comentario() As String
    Get
        Return _Comentario
    End Get
    Set(ByVal value As String)
        _Comentario = value
    End Set
End Property

Public Property MontoSol() As decimal
    Get
        Return _MontoSol
    End Get
    Set(ByVal value As decimal)
        _MontoSol = value
    End Set
End Property

Public Property MontoAct() As decimal
    Get
        Return _MontoAct 
    End Get
    Set(ByVal value As decimal)
        _MontoAct = value
    End Set
End Property

Public Property Estatus() As String
    Get
        Return _Estatus
    End Get
    Set(ByVal value As String)
        _Estatus = value
    End Set
End Property

Public Property IdEstatus() As Integer
    Get
        Return _IdEstatus 
    End Get
    Set(ByVal value As integer)
        _IdEstatus = value
    End Set
End Property

Public Property FecIngresoEjec() As date
    Get
        Return _FecIngresoEjec 
    End Get
    Set(ByVal value As date)
        _FecIngresoEjec = value
    End Set
End Property

Public Property FecEjec() As date
    Get
        Return _FecEjec
    End Get
    Set(ByVal value As date)
        _FecEjec = value
    End Set
End Property



End Class
